0 REM SAVE"@0:14",8 1 GOTO10 2 PRINT"-- PRESS ANY KEY --" 3 GETA$:IFA$=""THEN3 4 PRINT"[147] SIX CHESS V3.40 INSTRUCTIONS " 5 PRINT"****************************************[145][145]" 6 B$=" "+B$+" ":X=LEN(B$)/2:X=20-X 7 PRINTTAB(X)B$ 9 RETURN 10 B$="GENERAL":GOSUB4 20 PRINT" 1) TWO PLAYERS 25 [153]" 2) TAKE BACK MOST RECENT MOVE 30 PRINT" 3) START WITH NEW BOARD 40 [153]" 4) SAVE AND LOAD GAME AT ANY TIME 45 PRINT" 5) HI-RESOLUTION SCREEN IN COLOR 50 [153]" 6) JOYSTICK, OR KEYBOARD, USED TO MOVE 55 PRINT" 7) CHANGE BORDER, BACKGROUND AND 60 [153]" CURSOR COLORS 65 PRINT" 8) ON SCREEN LIST OF LAST 9 MOVES 70 [153]" 9) OUTPUT TO PRINTER OF ALL MOVES 75 PRINT"10) CONTINUOUS DISPLAY OF NUMBER OF MEN LEFT ON BOARD" 80 PRINT"11) OPTION TO FIND IF EITHER KING IS IN CHECK 100 B$[178]"THE BOARD":[141]2 110 [153]" THE BOARD IS MADE UP OF 91 HEXAGONS IN 3 COLORS. " 115 [153]" " 120 [153]" 30 OF THE HEXAGONS ARE " 125 [153]"OF EACH OF TWO OF THE (null)TAB((null) " 130 [153]"COLORS. THE LAST COLOR (null)TAB((null)2(null)TAB((null) " 135 [153]"HAS, THEREFORE, 31. (null)TAB((null)3(null)TAB((null)3(null)TAB((null)" 137 [153]"THIS COLOR WILL BE IN (null)1(null)TAB((null)1(null)TAB((null)1(null)" 138 [153]"THE EXACT CENTER OF (null)TAB((null)2(null)TAB((null)2(null)TAB((null)" 140 [153]"THE PLAY AREA. (null)3(null)TAB((null)3(null)TAB((null)3(null)" 145 [153]" TAB((null)1(null)TAB((null)1(null)TAB( " 150 [153]" TAB((null)2(null)TAB( " 155 [153]"CLOSE TAB( " 160 [153]" DISPLAYED IS ONLY A SMALL PORTION OF THE BOARD, BUT TO SCALE. " 200 B$[178]"PAWNS":[141]2 210 [153]" THE PAWNS CAN ONLY MOVE IN THE FORWARD DIRECTION ONE SPACE AT A TIME. 215 PRINT"THE ONLY EXCEPTION TO THIS IS CAPTURING. 220 [153]" " 225 [153]" IF THE PAWN STARTS AT (null)TAB((null) " 230 [153]"THE FWAIT, AND IT HAS NOT (null)TAB((null) (null)TAB((null) " 235 [153]"YET BEEN MOVED, THEN IT (null)TAB((null) (null)TAB((null) (null)TAB((null)" 237 [153]"MAY GO TO THE 2WAIT. ALL (null) (null)TAB((null)2(null)TAB((null) (null)" 238 [153]"OTHER MOVES MUST BE AS (null)TAB((null)C(null)TAB((null)C(null)TAB((null)" 240 [153]"1WAIT. IF CAPTURING, MOVE (null) (null)TAB((null)1(null)TAB((null) (null)" 245 [153]"TO ONE OF THE CWAIT'S. TAB((null)C(null)TAB((null)C(null)TAB( " 250 [153]" TAB((null)F(null)TAB( " 255 [153]"CLOSE TAB( " 260 [153]" ONCE THE PAWN HAS REACHED THE LAST ROW,IT WILL BECOME A QUEEN"; 270 [153]" AUTOMATICALLY." 300 B$[178]"BISHOPS":[141]2 310 [153]" BISHOPS TRAVEL ON THE DIAGONALS KEEPINGTHE ON THE SAME COLOR. 315 PRINT" 320 [153]" " 325 [153]" AS IN SQUARE CHESS, THE (null)TAB((null) " 330 [153]"BISHOP TAKES A PIECE (null)TAB((null) (null)TAB((null) " 335 [153]"BY LANDING ON IT WITH (null)TAB((null)T(null)TAB((null) (null)TAB((null)" 337 [153]"A VALID MOVE. JUST (null) (null)TAB((null) (null)TAB((null) (null)" 338 [153]"REMEMBER THAT IT MOVES (null)TAB((null) (null)TAB((null) (null)TAB((null)" 340 [153]"ALONG THE POINTS OF (null)F(null)TAB((null)T(null)TAB((null)T(null)" 345 [153]"THE HEXAGON IT STARTS TAB((null) (null)TAB((null) (null)TAB( " 350 [153]"FROM. TAB((null) (null)TAB( " 355 [153]"CLOSE TAB( " 360 [153]" MOVES CAN BE FOR MANY HEXAGONS BUT CAN NOT GO THROUGH ANOTHER PIECE. 400 B$="ROOKS":GOSUB2 410 PRINT" THE ROOKS MAY MOVE ANY NUMBER OF HEXAGONS AT ONE TIME BUT MAY 415 [153]"NOT JUMP OVER ANOTHER PIECE. 420 PRINT" " 425 PRINT" AGAIN, LAND ON AN [206][163][205] " 430 PRINT"OPPOSING PIECE TO [206][163][205] [206][163][205] " 435 PRINT"CAPTURE IT FROM THE [206][163][205] [206][163][205]T[206][163][205]" 437 PRINT"OTHER PLAYER. THE [205]T[206][163][205]T[206][163][205] [206]" 438 PRINT"DIFFERENCE TO THE BISHOP [206][163][205]T[206][163][205] [206][163][205]" 440 PRINT"IS THAT THE ROOK TRAVELS [205]F[206][163][205] [206][163][205] [206]" 445 PRINT"ALONG THE FACES OF THE [163][205]T[206][163][205] [206][163] " 450 PRINT"HEXAGONS. [163][205]T[206][163] 455 [153]"CLOSE TAB( " 460 [153]" MOVEMENT MAY BE TO ANY ONE OF THE SHOWNTWAIT'S FROM THE FWAIT. " 500 B$[178]"KNIGHTS":[141]2 510 [153]" THESE ARE THE ONLY PIECE THAT IS ALLOWED TO JUMP ANOTHER PIECE. 515 PRINT" 520 [153]" " 525 [153]" THE KNIGHT'S MOVE IS ALSO (null)TAB((null) " 530 [153]"THE MOST INVOLVED. IT (null)TAB((null) (null)TAB((null) " 535 [153]"TAKES THE FORM OF A (null)TAB((null)T(null)TAB((null)T(null)TAB((null)" 537 [153]"SLIGHTLY BENT 'L'. (null)T(null)TAB((null) (null)TAB((null)T(null)" 538 [153]"REMEMBER THE PATTERN (null)TAB((null) (null)TAB((null) (null)TAB((null)" 540 [153]"BY 2 AND 1 AWAY OR (null) (null)TAB((null) (null)TAB((null) (null)" 545 [153]"1 AND 2 AWAY. MAYBE THE TAB((null) (null)TAB((null) (null)TAB( " 550 [153]"PICTURE SHOWS THIS BETTER. TAB((null)F(null)TAB( " 555 [153]"CLOSE TAB( " 560 [153]" THE PIECES JUMPED ARE NOT REMOVED FROM THE BOARD, ONLY THE ONE"; 570 [153]" LANDED ON. 600 B$="QUEENS":GOSUB2 610 PRINT" THE QUEEN IS CONSIDERED BY MANY TO BE THE MOST POWERFUL PIECE. 615 [153]" 620 PRINT" " 625 PRINT" " 630 PRINT" THIS IS BECAUSE SHE " 635 PRINT"MAY MOVE THE SAME AS " 637 PRINT"THE BISHOP AND[146] THE " 638 PRINT"SAME AS THE ROOK. I " 640 PRINT"WILL NOT SHOW THE " 645 PRINT"POSSIBLE MOVES AS IT " 650 PRINT"MAY BE MORE CONFUSING " 655 PRINT"THAN HELPFULL. " 660 PRINT" REFER BACK TO THE BISHOP AND ROOK TO SEE THE POSSIBLE MOVES." 700 B$="KING":GOSUB2 710 PRINT" THE KING IS THE MOST IMPORTANT PIECE ONTHE BOARD." 715 PRINT" 720 [153]" " 725 [153]" THE KING MAY NEVER BE (null)TAB((null) " 730 [153]"CAPTURED. THIS IS THE (null)TAB((null) (null)TAB((null) " 735 [153]"IDEA OF THE GAME. IF (null)TAB((null)T(null)TAB((null)T(null)TAB((null)" 737 [153]"IT CAN BE TAKEN ON THE (null) (null)TAB((null)T(null)TAB((null) (null)" 738 [153]"NEXT MOVE, IT MUST BE (null)TAB((null)T(null)TAB((null)T(null)TAB((null)" 740 [153]"PROTECTED. MOVE IT AWAY, (null)T(null)TAB((null)F(null)TAB((null)T(null)" 745 [153]"BLOCK THE ATTACK WITH TAB((null)T(null)TAB((null)T(null)TAB( " 750 [153]"ANOTHER PIECE, OR TAKE THE TAB((null)T(null)TAB( " 755 [153]"ATTACKER. TAB( " 760 [153]" THE KING MAY MOVE IN THE SAME MANER AS THE QUEEN BUT ONLY "; 770 [153]"ONE HEXAGON AT A TIME." 800 B$[178]"GAME PLAY":[141]2 810 [153]" MOVES ARE DONE BY EITHER JOYSTICK, IN EITHER PORT, OR BY KEYBOARD" 820 [153]" ENTER MOVES ON KEYBOARD BY PRESSING THE LETTERS OF THE HEXAGON"; 830 [153]" YOU WISH TO MOVE TO. ENTER FIRST THE 'ROW' VALUE," 835 [153]"ACROSS THE BOTTOM." 840 [153]" THEN ENTER THE 'COLUMN' VALUE, DOWN THESIDE." 850 [153]" AS YOU ENTER THESE KEYS, YOU WILL SEE THEM IN THE SMALL WINDOW AT"; 855 [153]" THE UPPER LEFT CORNER." 856 [153]" PRESS 'RETURN' TO SIGNAL THAT HEXAGON. SINCE YOU TELL WHICH HEXAGON"; 860 [153]", YOU CAN KEEP ENTERING LETTERS UNTILL THE CURSOR IS ON THE "; 865 [153]"CORRECT HEXAGON." 900 B$[178]"GAME PLAY CONT":[141]2 910 [153]" MOVES ENTERED WITH THE JOYSTICKS ARE DONE SIMPLY. JOYSTICKS USE"; 915 [153]" THE SIX DIRECTIONS; UP,DOWN, AND THE FOUR DIAGONALS." 920 [153]" THE FIRE/ACTION BUTTON HAS THE SAME FUNCTION AS 'RETURN'." 930 [153]" IF TWO JOYSTICKS ARE PLUGGED IN, THE JOYSTICK IN PORT 1 WILL "; 935 [153]"HAVE PRIORITY." 940 [153]" NOTE ALSO THAT IF A PAWN REACHES THE OPPOSITE END OF THE BOARD"; 945 [153]" AND IS ENTITILED TO A PROMOTION, THIS VERSION WILL ALWAYS "; 946 [153]"GIVE A QUEEN." 1000 B$[178]"SCREEN":[141]2 1010 [153]" THE SCREEN IN SET UP IN FOUR PARTS." 1012 [153]" THE MAIN PORTION CONTAINS"; 1015 [153]" THE BOARD. ALSO, IN THE LOWER RIGHT CORNER OF THIS PORTION, IS"; 1016 [153]" THE INDICATOR FOR TWAITEST CWAITHECK. IF IT SHOWS A ^WAIT, THEN IT IS ON. 1020 PRINT" THE UPPER LEFT PORTION DISPLAYS THE CURRENT CURSOR LOCATION." 1025 PRINT" AND, IF A PIECE IS 'PICKED UP', IT ALSOSHOWS WHICH PIECE IS UP." 1100 B$="SCREEN CONT":GOSUB2 1110 PRINT" THE UPPER RIGHT CORNER OF THE SCREEN CONTAINS A WINDOW SHOWING"; 1112 PRINT" THE PIECES, FOR BOTH WHITE AND BLACK, AND THE NUMBEROF EACH"; 1115 PRINT" PIECE REMAINING ON THE BOARD." 1120 PRINT" THE LAST SECTION IS TO THE LOWER RIGHT OF THE SCREEN." 1125 PRINT" IT IS A SCROLLING WINDOW SHOWING EACH COMPLETED MOVE AS IT IS MADE." 1130 PRINT" IF A MOVE IS 'TAKEN BACK', THIS WILL BEUPDATED TO REFECT ANY CHANGES." 1140 PRINT" THIS WINDOW WILL ONLY DISPLAY THE LAST 9 MOVES BY EACH PLAYER." 1150 PRINT" ONCE THE OLDEST MOVE IS SCROLLED OFF THE SCREEN, IT IS PERMAN"; 1155 PRINT"ENTLY LOST." 1200 B$="MENU":GOSUB2 1210 PRINT" THE MENU CAN BE SEEN AT ANY TIME THE GAME BOARD IS DISPLAYED BY"; 1212 PRINT" PRESSING THE 'M' KEY." 1215 PRINT" IT WILL DISPLAY THE ACTIVE KEYS WHICH WILL DO A FUNCTION." 1220 PRINT"TEST CHECK THE 'T' KEY WILL TOGGLE WHETHER OR"; 1222 PRINT" NOT THE PROGRAM TESTS EACH KING FOR CHECK." 1230 PRINT"RESTORE BOARD HITTING 'R' WILL RESET THE "; 1232 PRINT"PIECES TO THE STARTING POSITIONS" 1300 B$="MENU CONT":GOSUB2 1310 PRINT"PRINTER HITTING 'P' WILL START THE "; 1312 PRINT"OUTPUT OF THE MOVES, AS THEY ARE"; 1315 PRINT" SEEN ON THE SCREEN." 1320 PRINT" THE OUTPUT STARTS AS OF "; 1322 PRINT"THE KEY PRESS AND ALL"; 1325 PRINT" PREVIOUS MOVES ARE NOT PRINTED." 1330 PRINT"MENU THE 'M' KEY WILL GIVE THIS"; 1332 PRINT" LIST ON THE SCREEN. THE GAME BO"; 1335 PRINT"ARD IS NOT LOST." 1400 B$="MORE MENU":GOSUB2 1410 PRINT"SCREEN COLOR THREE OF THE FUNCTION" 1420 PRINT"BORDER COLOR KEYS WILL CYCLE THROUGH" 1430 PRINT"CURSOR COLOR EACH OF THE SIXTEEN " 1440 PRINT" COLORS. " 1450 PRINT"LOAD THE 'L' AND 'S' KEYS" 1455 PRINT"SAVE WILL ALLOW YOU TO LOAD" 1460 PRINT" OR SAVE A CURRENT GAME" 1465 PRINT" TO THE DISK. YOU MAY" 1470 PRINT" ALSO REQUEST A LIST" 1475 PRINT" OF THE CURRENT GAMES ON" 1480 PRINT" DISK." 1485 PRINT"EXIT THE 'X' KEY WILL LEAVE" 1490 PRINT" THE PROGRAM. IT IS" 1495 PRINT" RECOMMENDED THAT THE" 1498 PRINT" COMPUTER BE TURNED OFF" 1499 PRINT" BEFORE USEING IT AGAIN." 1500 B$="YET TO COME":GOSUB2 1510 PRINT" FURTHER DEVELOPMENTS INCLUDE:::" 1520 PRINT" MAN VS. MACHINE (ONE PLAYER)" 1530 PRINT" A CLOCK TIMER FOR EACH MOVE" 1535 PRINT" A MODEM ROUTINE SO GAMES CAN" 1537 PRINT" BE PLAYED OVER THE PHONE" 1538 PRINT" AND BY DIFFERENT COMPUTERS. 1540 [153]" NOTE THIS WILL ONLY BE WRITTEN IF I " 1550 [153]" GET SOME SUPPORT. I WOULD LIKE" 1555 [153]" A LETTER OR POSTCARD TELLING ME" 1560 [153]" WHAT YOU WOULD LIKE TO SEE IN" 1565 [153]" CHANGES AND NEW IDEAS." 1570 [153]" FURTHER VERSIONS WILL DEPEND" 1575 [153]" ON THE RESPONSE I RECIEVE." 2800 B$[178]"MISC":[141]2 2810 [153]"FOR THOSE FAMILIAR WITH SQUARE CHESS:: " 2820 [153]" THERE IS NO SUCH THING AS CASTLING IN THIS VERSION OF THE GAME! 2825 PRINT" ALSO THERE IS NO 'EN PASSENT'!!" 2830 PRINT"AS YOU PLAY YOU WILL SEE THAT THESE CASES DO NOT OCCUR IN "; 2835 PRINT"THIS GAME!" 2850 PRINT"PRESS RETURN[146] TO SEE AGAIN" 2860 PRINT"PRESS SPACE[146] TO LOAD" 2870 GETA$:IFA$=CHR$(13)THENRUN 2880 IFA$<>" "THEN2870 2990 PRINT"[147]P[207]44,12:P[207]43,1:NEW:P[207]198,1:P[207]631,131" 3000 B$="02" 3010 PRINT" "+CHR$(34)+B$+CHR$(34)+",8" 3020 POKE198,2:POKE631,13:POKE632,131